www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/rsdav3.m
function xx= rsdav3(varargin) %function varargout = rsdav3(varargin) gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @rsdav3_OpeningFcn, ... 'gui_OutputFcn', @rsdav3_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin & isstr(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end function rsdav3_OpeningFcn(hObject, eventdata, handles, varargin) handles.output = hObject; guidata(hObject, handles); function varargout = rsdav3_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; function btnBrowse_Callback(hObject, eventdata, handles) try [filename, pathname]=uigetfile('*.txt;*.dat', 'Open data file'); eval(['X=load(''' pathname filename ''');']) [nX,nY]=size(X); set(handles.txtSizeData,'String',['Decision Table of ' int2str(nX) 'x' int2str(nY)]); set(handles.edtC,'String',['1:' int2str(nY-1)]) set(handles.edtD,'String',int2str(nY)); set(handles.btnBrowse,'UserData',X); catch errordlg('Error in Data file') end function Y_Callback(hObject, eventdata, handles) pin=str2num(get(handles.Y,'string')); ha=findobj('Tag','Y'); set(ha,'userdata',pin); function core_Callback(hObject, eventdata, handles) [bb,dd,xx]=getdata(handles); x=core(bb,dd,xx); set(handles.edtOut,'String',num2str(x)); function clear_Callback(hObject, eventdata, handles) set(handles.edtOut,'String',''); function quit_Callback(hObject, eventdata, handles) close(gcf); function about_Callback(hObject, eventdata, handles) rs_about; function indp_Callback(hObject, eventdata, handles) [bb,dd,xx]=getdata(handles); R=str2num(get(handles.edtR,'String')); yy=ind(R,xx); set(handles.edtOut,'string',num2str(yy)) function RYlower_Callback(hObject, eventdata, handles) indp_r=eval(get(handles.edtR,'String')); Ry_y=eval(get(handles.edtY,'String')); [bb,dd,xx]=getdata(handles); yy=rslower(Ry_y,indp_r,xx); set(handles.edtOut,'string',num2str(yy)) function RYupper_Callback(hObject, eventdata, handles) indp_r=eval(get(handles.edtR,'String')); Ry_y=eval(get(handles.edtY,'String')); [bb,dd,xx]=getdata(handles); yy=rsupper(Ry_y,indp_r,xx); set(handles.edtOut,'string',num2str(yy)) function SGF_Callback(hObject, eventdata, handles) sgf_a=eval(get(handles.edtA,'String')); sgf_r=eval(get(handles.edtR,'String')); sgf_d=eval(get(handles.edtD,'String')); [bb,dd,xx]=getdata(handles); yy=sgf(sgf_a,sgf_r,sgf_d,xx); set(handles.edtOut,'string',num2str(yy)) % --- Executes on button press in POSCD. function POSCD_Callback(hObject, eventdata, handles) [bb,dd,xx]=getdata(handles); x=posind(bb,dd,xx); set(handles.edtOut,'string',['The rate of pos(C,D) is ',num2str(x)]) function redP_Callback(hObject, eventdata, handles) [bb,dd,xx]=getdata(handles); x=redu(bb,dd,xx); set(handles.edtOut,'String',num2str(x)); % --- Executes on button press in Valuereduce. function Valuereduce_Callback(hObject, eventdata, handles) val_r=eval(get(handles.edtR,'String')); val_d=eval(get(handles.edtD,'String')); [bb,dd,xx]=getdata(handles); val_rc=num2str(val_r); val_dc=num2str(val_d); yy=val_redu(val_r,val_d,xx); yy=num2str(yy); ss=strcat(' C = :',val_rc,' and D = :',val_dc) yy=strvcat(ss,yy); set(handles.edtOut,'string',yy) function XR_Callback(hObject, eventdata, handles) xr_a=eval(get(handles.edtA,'String')); xr_r=eval(get(handles.edtR,'String')); [bb,dd,xx]=getdata(handles); yy=ind_cls(xr_a,xr_r,xx); yy=num2str(yy); yy=strcat('If A= ',num2str(xr_a),', the [X]R is {',yy,'}'); set(handles.edtOut,'string',yy) function matrix_Callback(hObject, eventdata, handles) [pos_c,pos_d,xx]=getdata(handles); yy=num2str(xx); set(handles.edtOut,'string',yy) function order_Callback(hObject, eventdata, handles) [pos_c,pos_d,xx]=getdata(handles); yz=order(pos_c,pos_d,xx) set(handles.edtOut,'string',num2str(yz)) function [C,D,X]=getdata(handles) C=eval(get(handles.edtC,'String')); D=eval(get(handles.edtD,'String')); X=get(handles.btnBrowse,'UserData'); function order_CreateFcn(hObject, eventdata, handles) function clear_CreateFcn(hObject, eventdata, handles) %common_init_fcn(hObject, eventdata, handles) function quit_CreateFcn(hObject, eventdata, handles) %common_init_fcn(hObject, eventdata, handles) function VAluereduce_CreateFcn(hObject, eventdata, handles) %common_init_fcn(hObject, eventdata, handles) function XR_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtOut_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function about_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function indp_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function btnBrowse_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function POSCD_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtD_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtC_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function core_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function Rylower_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function RYupper_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function redP_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function SGF_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtA_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtR_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtY_CreateFcn(hObject, eventdata, handles) common_init_fcn(hObject, eventdata, handles) function edtA_Callback(hObject, eventdata, handles) function edtY_Callback(hObject, eventdata, handles) function edtR_Callback(hObject, eventdata, handles) function help_Callback(hObject, eventdata, handles) function edtOut_Callback(hObject, eventdata, handles) function common_init_fcn(hObject, eventdata, handles) if ispc set(hObject,'BackgroundColor','white'); else set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor')); end